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by PHILIP STANLEY 

drawings by Barbara Veda Benson 

IDENTIFICATION DIVISION. 

PROGRAM-ID. ACOBOLFABLE. 

DATE WRITTEN. ONCE UPON A TIME. 

REMARKS. THIS IS EXAMPLE OF COBOLX VERSATILITY/^ 

ENVIRONMENT DIVISION. 

CONFIGURATION SECTION. 

OBJECT COMPUTER. ANY MUSIC BOX, MEMORY SIZE 8 04 BYTES, 

19 TAPE DRIVES, 11 DISC DRIVES, 

1 GOLDILOCKS, 3 BEARS. 

INPUT-OUTPUT SECTION. 

FILS-CONTROL. 

SELECT TAPS DRIVES, ASSIGN THEM TO CREDITOR. 

“SELECT’D J SC DRIVES. — — — - 

SELECT GOLDILOCKS, SELECT BEARS- ASSIGN TO ONE COTTAGE. 

CO-CONTROL. APPLY RED TAPE TO TAPE DRIVES, APPLY KOFFNUNG RECORD TO DISC DRIVE" 
APPLY GOLDI, BEARS TO COTTAGE. 

DATA DIVISION. 

FD GOLDI. LAPEL RECORDS ARE STANDARD, VALUE OF IDENTIFICATION IS “GOLDILOCKS 
DATA RECORD IS GOLDILOCKS. 

01 GOLDILOCKS. 

02 HGT SIZE IS 62 INS. 

02 WGT SIZE IS 110 L3S. 

02 VITAL-STATS 

03 B 33. 

03 W 24. 

03 H 36. 

' 02 RATING 100% J 
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-•■’D 3-PEARS. LABEL RECORDS ARE STANDARD, VALUE OF IDENTIFICATION 
DATA RECORDS ARE DADDY-BEAR, MUMMY-BEAR, BABY-BEAR. 

01 DADDY-BEAR. 

02 HGT 70 INS. 

02 WGT 750 LBS. 

02 COLOR CF EYES BLOODSHOT. 

02 DISPOSITION UNBEARABLE. 

01 MUMMY-BEAR. 

02 HGT 65 INS. 

02 WGT 700 LBS. 

02 COLOR OF EYES BLUE. 

02 DISPOSITION BEARABLE. 

01 BABY-BEAR. 

. 02 HGT 40 INS. 

02 WGT 200 L3S. 

02 COLOR OF EYES BLUE. 

02 DISPOSITION INFANTILE. 


IS “BEARS” 
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WORKING-STORAGE SECTION. 
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01 COTTAGE. PICTURE IS COZY. 

C2 KITCHEN. 

03 TABLE SIZE IS LARGE, VALUE- IS 1. 

. 03 CHAIRS SIZE IS MEDIUM . VALUSWS- 3. 

02 PORRIDGE. 

03 KING-SIZE OCCURS 1 TIME. 

03 QUEEN-SIZE OCCURS 1 TIME. 

03 PRINCE-SIZE OCCURS 1 TIME. 

02 DOOR SIZE IS USUAL, VALUE IS OPEN. 

02 BEDROOM 
03 BSD 

04 LARGE OCCURS 1 TIME. 

04 MEDIUM OCCURS 1 TIME. 

04 SMALL OCCURS 1 TIME. 

03 WINDOW SIZE IS SMALL VALUE IS OPEN. 

01 RIGHT-COTTAGE REDEFINES COTTAGE VALUE IS SAME. 

01 KING-SIZK-BED-SLEPT-IN SIZE IS BIG VALUE IS ROCK-BOTTOM. 

01 QUSEN-SIZE-BED-SLEPT-IN SIZE IS MEDIUM VALUE IS DEPRESSED. 

01 NO-PORRIDGE SIZE IS SMALL VALUE ZERO. 

01 SIP SIZE IS LITTLE VALUE IS “SSSLUP”. . 

01 SLUMBERLAND SIZE IS UNLIMITED VALUE 13 ZZZZZZZZZZ. 

CONSTANT SECTION. 

01 .COMMENT!. SIZE .IS 33 A .VALUE IS- “SOMEBODY HA S43EEN .B ATINC MY -g O RHIDOS^ 

Cl COMMENT-. SIZE IS 33 A VALUE IS “SOMEBODY HAS BEEN SLEEPING IN MY BED.’ . 

PROCEDURE DIVISION. • ^ 

W' 1 . «v’ j, ' ' " 

FOREST SECTION. 

START-OF-TALE. OPEN STORY. READ FOLLOWING. 

FIRST-MOVE. MOVE GOLDILOCKS TO COTTAGE. IF DOOR IS CLOSED OR BEARS ARE GREATER THAN 
ZERO ALTER ENTER-GOLDILOCKS TO PROCEED TO HASTY-RETREAT. 
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ENTER-GOLDILOCKS. GO TO KITCHEN-SCENE. 

KITCHEN-SCENE. IF PORRIDGE IS KING-SIZE PERFORM TASTE-ROUTINE VARYING PORRIDGE FROM 
KING-SIZE BY 1 UNTIL PORRIDGE EQUALS PRINCE-SIZE OTHERWISE COMPUTE IF COTTAGE = NIG.iT- 
COTTAGE. GO TO BEDROOM-SCENE. 

TASTE-ROUTINE. SUBTRACT SIP FROM PORRIDGE (KING-SIZE). SUBTRACT SIP FROM PORRIDGE (QUEEN- 
SIZE). SUBTRACT SI? FROM PORRIDGE (PRINCE-SIZE) GIVING NO PORRIDGE. 

BEDROOM-SCENE. MOVE GOLDILOCKS TO BEDROOM. ADD GOLDILOCKS TO BED (LARGE). DISPLAY “IT 
IS TOO HARD”. SUBTRACT GOLDILOCKS FROM BED (LARGE) GIVING KING-SIZE-BED-SLEPT-IN. 
MOVE GOLDILOCKS TO BED (MEDIUM). DISPLAY “IT IS TOO SOFT”. SUBTRACT GOLDILOCKS FROM 
BED (MEDIUM) GIVING QUEEN-SIZE-BED-SLEPT-IN. 

MOVE GOLDILOCKS TO BSD (SMALL). DISPLAY “IT IS JUST RIGHT”. 

ADD CC_B.’ IS TO \D. 

BEARS-RETURN. MOVE. DADDY-BEAR, MUMMY-BEAR, BABY-BEAR TO KITCHEN. 

MOVE CORRESPONDING BEARS TO PORRIDGE. DISPLAY “DADDY BEAR”, COMMENT! 

DISPLAY “MUMMY BEAR”, COMMENT! DISPLAY “BABY BEAR”, COMMENT!, “AND EATEN IT ALL 
UP”. MOVE BEARS TO BEDROOM. 


BEARS-IN-BEDROOM. EXAMINE BEDS REPLACING ALL GOLDILOCKS WITH BEARS. 

DISPLAY “DADDY-BEAR”, COMMENTS. DISPLAY “MUMMY BEAR”, COMMENTS. 

DISPLAY “BABY BEAR”, COMMENTS, “AND HERE SHE IS”. 

•HASTY-RETREAT. IF WINDOW IS OPEN EXIT GOLDILOCKS OTHERWISE MOVE GOLDILOCKS TO DOOR. 
EXIT. 

END. CLOSE STORY, DISPLAY “WOULD YOU BELIEVE CINDERELLA IN PL/l”. 

END TALE. 



